(in-package :experiment)

(defclass reward (state)
  ())

(defmethod state-init (experiment (state reward))
  (lg 'start :reward (reward experiment))
  (make-instance 'gwee:text-area
                 :x :center :y :center
                 :horizontal-justification :center
                 :parent state
                 :font (gwee:default-font 36)
                 :data `("End Of Session"
                         ,(format nil "Reward: $~,2f" (/ (reward experiment) 100)))))

(defmethod state-run (experiment (state reward))
  (state-onward experiment state))
